home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
FishMarket 1.0
/
FishMarket v1.0.iso
/
fishies
/
126-150
/
disk_143
/
rim
/
rimsrcami.arc
/
LXCARD.BLK
< prev
next >
Wrap
Text File
|
1988-01-05
|
959b
|
23 lines
C
C THIS COMMON BLOCK CONTAINS INFORMATION NEEDED BY LXLREC FAMILY
C OF ROUTINES.
C
C NEWN.....NUMBER OF ITEMS IN CURRENT RECORD
C OLDN.....NUMBER OF ITEMS IN PREVIOUS RECORD
C NEWREC...CURRENT TEXT ITEM CHARACTER IMAGE PACKED TOGETHER
C OLDREC...SAME AS NEWREC BUT FOR PREVIOUS RECORD.
C TYPE.....TYPE OF EACH ITEM 4HTEXT,3HINT,4HREAL
C INTVAL...VALUE IF INTEGER TYPE, START POINTER IN NEWREC IF TEXT.
C RVAL.....VALUE IF REAL TYPE, NUM. CHARS. IF TEXT TYPE.
C NEXT.....NEXT AVAILABLE POITION IN NEWREC
C NIN......INPUT FILE NAME
C NOUT.....OUTPUT FILE NAME
C ECHO.....LOGICAL .TRUE. IFF LXLREC SHOULD ECHO INPUT.
C LXEOF....LOGICAL .TRUE. IFF EOF READ ON LAST READ
C
COMMON /LXCARD/NEWN,OLDN,NEWREC(290),OLDREC(290),
X TYPE(100),INTVAL(100),RVAL(100),NEXT,
X NIN,NOUT,ECHO,LXEOF
INTEGER OLDN,OLDREC,TYPE
LOGICAL ECHO,LXEOF